clear all
set more off
cd "/home/g/gdf9/Fascismo/Database"

set matsize 10000
set maxvar 30000
set more off

use "fascism_map_db.dta", clear


cd "/home/g/gdf9/Fascismo/Database/ITA_adm_2015"


replace foots_pop6m=. if fascist1924_vv==. | psu1919_vv==.
replace fascist_violence=. if fascist1924_vv==. | psu1919_vv==.
replace fascist_branch=. if fascist1924_vv==. | psu1919_vv==.
replace fascist1924_vv=. if fascist1924_vv==. | psu1919_vv==.
replace psu1919_vv=. if fascist1924_vv==. | psu1919_vv==.
replace fascist1921_vv=. if fascist1924_vv==. | psu1919_vv==.
*****
spmap foots_pop6m using "coord_italy2015_adm.dta" , polygon(data("coord_italy_reg2015_adm.dta") fcolor(none) ocolor(black) ) id(mun_id) fc(Greens) ocolor(none ..) ndocolor(none ..) ndfcolor(white) clmethod(custom) clbreaks(0 0.01 0.02 0.03 0.035 0.05 1)
graph export "/home/g/gdf9/Fascismo/Regressions/maps20211127/figure_1a.png", width(4000) replace
*
spmap psu1919_vv using "coord_italy2015_adm.dta", polygon(data("coord_italy_reg2015_adm.dta") fcolor(none) ocolor(black) ) id(mun_id) fc(Reds) ocolor(none ..) ndocolor(none ..) ndfcolor(white) clmethod(custom) clbreaks(0 0.01 0.10 0.25 0.50 0.75 1)
graph export "/home/g/gdf9/Fascismo/Regressions/maps20211127/figure_1b.png", width(4000) replace
*
spmap fascist_violence using "coord_italy2015_adm.dta" , polygon(data("coord_italy_reg2015_adm.dta") fcolor(none) ocolor(black) ) id(mun_id) fc(Oranges) ocolor(none ..) ndocolor(none ..) ndfcolor(white) clmethod(custom) clbreaks(0 0.005 0.1 0.25 0.5 1 2.5)
graph export "/home/g/gdf9/Fascismo/Regressions/maps20211127/figure_1c.png", width(4000) replace
*
spmap fascist_branch using "coord_italy2015_adm.dta", polygon(data("coord_italy_reg2015_adm.dta") fcolor(none) ocolor(black) ) id(mun_id) fc(white black*0.5) ocolor(none ..) ndocolor(none ..) ndfcolor(white) 
graph export "/home/g/gdf9/Fascismo/Regressions/maps20211127/figure_1d.png", width(4000) replace
*
spmap fascist1921_vv using "coord_italy2015_adm.dta" , polygon(data("coord_italy_reg2015_adm.dta") fcolor(none) ocolor(black) ) id(mun_id) fc(purple*0.2 purple*0.4 purple*0.6 purple*0.8 purple*1 purple*1.2 purple*1.4 purple*1.6) ocolor(none ..) ndocolor(none ..) ndfcolor(white) clmethod(custom) clbreaks(0 0.0001 0.025 0.05 0.10 0.15 0.25 1)
graph export "/home/g/gdf9/Fascismo/Regressions/maps20211127/figure_1e.png", width(4000) replace
spmap fascist1924_vv using "coord_italy2015_adm.dta" , polygon(data("coord_italy_reg2015_adm.dta") fcolor(none) ocolor(black) ) id(mun_id) fc(Greys) ocolor(none ..) ndocolor(none ..) ndfcolor(white) clmethod(custom) clbreaks(0 0.25 0.50 0.75 0.95 1)
graph export "/home/g/gdf9/Fascismo/Regressions/maps20211127/figure_1f.png", width(4000) replace

spmap rain1919uncapped using "coord_italy2015_adm.dta" , polygon(data("coord_italy_reg2015_adm.dta") fcolor(none) ocolor(black) ) id(mun_id) fc(red*1.8 red*1.4 red orange orange*0.5 blue*0.2) ocolor(none ..) ndocolor(none ..) ndfcolor(white) clmethod(custom) clbreaks(0 0.4 0.5 0.7 .9 1 2) point(data("../Rainfall_Stations/rainfall_db1915_1979.dta") x(lon) y(lat) size(*0.3) fcolor(black) ocolor(black) osize(thin) legenda(on) leglabel(Weather station))
graph export "/home/g/gdf9/Fascismo/Regressions/maps20211127/figure_A3.png", width(4000) replace
